#!/usr/bin/env perl
# $Id: test1.pl 9ce65bed8ef4 2012/08/26 02:14:51 pgurumur $
# Copyright (c) 2012 Prabhu Gurumurthy <pgurumur@gmail.com>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#

# __version__  = "$Revision: 9ce65bed8ef4 $"
# __author__   = "$Author: pgurumur $"
# __modified__ = "$Date: 2012-08-26 02:14:51Z $"
#
#
#
use strict;
use Net::DNS;

my @whois = (
   '199.71.0.48',
   '199.71.0.49',
   '199.212.0.46',
   '199.212.0.47',
   '199.212.0.48',
   '199.71.0.47'
);

my $server = $whois[int(rand($#whois))];
print $server, "\n";

my $res   = Net::DNS::Resolver->new;
my $as = int(rand(15000));
printf("as number: %d\n", $as);
my $asn = sprintf("AS%s.asn.cymru.com", $as);
my $query = $res->query($asn, "TXT");

if ($query) {
   foreach my $rr (grep { $_->type eq 'TXT' } $query->answer) {
      push my @data, split(/\|/, $rr->txtdata);
      chomp($data[$#data]);
      print $data[$#data], "\n";
   }
}
else {
   warn "query failed: ", $res->errorstring, "\n";
}

if ($as < 15000) {
   print "foo", "\n";
}
